home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / circuits / spice2g6.z / spice2g6 / spice / Fortran / cpytb4.f < prev    next >
Encoding:
Text File  |  1989-02-03  |  588 b   |  21 lines
  1.       subroutine cpytb4(itabo,itabn)
  2.       implicit double precision (a-h,o-z)
  3. c
  4. c     this routine copies a table.  its use is made necessary by the
  5. c fact that only one pointer is allowed per table.
  6. c
  7. c spice version 2g.6  sccsid=blank 3/15/83
  8.       common /blank/ value(200000)
  9.       integer nodplc(64)
  10.       complex cvalue(32)
  11.       equivalence (value(1),nodplc(1),cvalue(1))
  12. c
  13. c
  14.       call sizmem(nodplc(itabo),isize)
  15.       call getm4(nodplc(itabn),isize)
  16.       loco=nodplc(itabo)
  17.       locn=nodplc(itabn)
  18.       call copy4(nodplc(loco+1),nodplc(locn+1),isize)
  19.       return
  20.       end
  21.